library(plotly) # Data: volcano is provided by plotly # Plot p <- plot_ly(z = volcano, type = "surface") p